home *** CD-ROM | disk | FTP | other *** search
/ Avalon 8 / Avalon_08_1996-02_Avalon.d64 / avalon menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  64 lines
  1. 1 poke808,225
  2. 2 printchr$(8)
  3. 4 sys65418:k=peek(45)+peek(46)*256:a=k-1086:p=k-1019:sysa:t$(0)=",8":t$(1)=",8,1"
  4. 5 ln$="[206][205][206][205][206][205][206][205][206][205]":ln$=""+ln$+ln$+ln$+ln$:sp$="                   ":sp$=sp$+sp$
  5. 6 poke53280,0:poke53281,0:y=1:r$(0)="":r$(1)="[146]":x(0)=2:x(1)=22
  6. 7 print""
  7. 8 readn:n=n-1:dims(n),f$(n),t(n),e$(n),c$(n)
  8. 10 fori=0ton:reads(i),f$(i),t(i),e$(i),c$(i):next
  9. 12 print"[147]";chr$(9)chr$(142)chr$(8):y=0:sysp,14,0
  10. 14 sysp,14,1
  11. 16 sysp,14,2:mx=15:ifmx>(n-g)thenmx=n-g
  12. 18 sysp,7,4:r=1:print"[145][145][145] more than just a legend "
  13. 19 print"[158][145]"
  14. 20 print"[154]        [205]  [206][205] [165][167] [206][205] [165] [206][205] [207][205]  [206]"
  15. 21 print"[156]        [206]  [207][208] [205][206] [207][208] [204][175][205][206] [165][170]  [205] ":print"             february 1996[158]"
  16. 22 fory=0tomx:gosub50:next:y=0:sysp,5,22:print"[150]use cursor key to move cursor"
  17. 24 sysp,15,18
  18. 26 sysp,0,21:println$
  19. 28 i=23:ifn>mxtheni=24:sysp,4,23:print"[154]press the [n][154] key for next page"
  20. 30 sysp,6,i:print" press [return] to load file ":poke198,0
  21. 32 r=(r+1)*-(r<1):gosub50:t=0
  22. 34 geta$:t=t+1:ifa$=""andt<20then34
  23. 36 ifa$=""thenr=1:gosub50:y=y+1:gosub56:goto32
  24. 38 ifa$=""andy+8<mx+1thenr=1:gosub50:y=y+8:gosub56:goto32
  25. 40 ifa$="[145]"thenr=1:gosub50:y=y-1:gosub56:goto32
  26. 42 ifa$="[157]"andy-8=>0thenr=1:gosub50:y=y-8:gosub56:goto32
  27. 44 ifa$="n"theng=(g+16)*-(g<=n-16):goto12
  28. 46 ifa$=chr$(13)then62
  29. 48 goto32
  30. 50 rl=y-(8*-(y=>8)):sysp,x(-(y=>8)),rl+9:printr$(r);left$(f$(y+g),16)
  31. 52 sysp,1,20:a$=left$(c$(y+g),38):a=len(a$):b$=left$(sp$,19-a/2)
  32. 54 print"[146]";b$;a$;b$:return
  33. 56 ify>mxtheny=0
  34. 58 ify<0theny=mx
  35. 60 return
  36. 62 ifs(y+g)thensys52256
  37. 64 print"[147]load";chr$(34);f$(y+g);chr$(34);t$(t(y+g)):print"";e$(y+g);chr$(9);""
  38. 66 poke631,13:poke632,13:poke198,2:end
  39. 68 :
  40. 70 :
  41. 98 rem 0=no warp/drive   0= ",8"
  42. 100 data 18:rem number filenames
  43. 103 data 0,"best i've seen", 1,"run","a new discovery by hal'"
  44. 104 data 0,"welcome to ava'", 1,"run","a cool bit of code to say hi!"
  45. 105 data 0,"sci-fi story", 1,"run","yes story time again by tomz!"
  46. 106 data 0,"mantra/review", 1,"run","mantra wisdom,just for you"
  47. 107 data 0,"oz net news", 1,"run","hacker strickens internet!"
  48. 108 data 0,"computer scene", 1,"run","more for your 64"
  49. 109 data 0,"pc software info",1,"run","more fun available for your cpu"
  50. 110 data 0,"oz-si 64 addy", 1,"run","down under dudes this you must get"
  51. 111 data 0,"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]", 1,"run","welcome to"
  52. 112 data 0,"[209]    [194][166][168]      [209]", 1,"run","issue eight"
  53. 115 data 0,"[209] [209][209] [194]     [209][209] [209]", 1,"run","of avalon"
  54. 120 data 0,"[209] [209][209][209][194][209][209][209][209][209][209][209] [209]", 1,"run","we hope that"
  55. 130 data 0,"[209] [209][209][209][209][209][209][209][209][209][209][209] [209]", 1,"run","you will join"
  56. 140 data 0,"[209] [209][209][209][209][213][195][201][209][209][209][209] [209]", 1,"run","us in our quest"
  57. 150 data 0,"[209] [209][209][209][209][194] [194][209][209][209][209] [209]", 1,"run","to keep the 64"
  58. 160 data 0,"[209][209][209][209][209][209][206] [205][209][209][209][209][209][209]", 1,"run","! ! ! a l i v e ! ! !"
  59. 170 data 0,"ruins", 1,"run","a mega game by the mega mantra!"
  60. 180 data 0,"clock", 1,"run","if it won't load turn off your cart'"
  61. 190 data 0,"               ", 1,"run","                                      "
  62. 200 data 0,"               ",1,"run","                        "
  63. 299 :
  64.